home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbtext.dxr / 00024_copy icon.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  718 b   |  34 lines
  1. property ancestor, pCursor
  2. global gDBTextVarList
  3.  
  4. on new me, buttonName, castName, xSprite, xLoc, descendant
  5.   ancestor = new(script("generic button"), buttonName, castName, xSprite, xLoc, me)
  6.   MyObj = getaProp(gDBTextVarList, GetObjProp())
  7.   pCursor = GetPointingCursor(MyObj)
  8.   return me
  9. end
  10.  
  11. on performFunction me
  12.   tell the stage
  13.     playSFX(5)
  14.   end tell
  15.   TextCopy()
  16.   return me
  17. end
  18.  
  19. on enable me
  20.   enable(ancestor)
  21.   set the cursor of sprite the pChannel of me to pCursor
  22. end
  23.  
  24. on disable me
  25.   disable(ancestor)
  26.   set the cursor of sprite the pChannel of me to -1
  27. end
  28.  
  29. on buttonLoc me, size
  30.   set the loc of sprite the pChannel of me to getAt([me.pStageLoc, point(517, 17)], size)
  31.   disable(me)
  32.   return me
  33. end
  34.